2a26ca87-4d15-40cc-9e84-61aab5f02dde 151 4 5 false false 0 decimal

&[DATE] &[TIME] - &[FILENAME]

Matrix delete col/row

]]>

4 - appVersion 0.99.7822.147

4 appVersion 0.99.7822.147

Alternate:PROGRAM 1 : Del single 'col' M# c Del_Col nc M# cols : nr M# rows : N# M# c 0 < (c nc > (| M# 1 nr range 2 nc range el c 1 ≡ M# 1 nr range 1 nc 1 - (range el c nc ≡ A1 M# 1 nr range 1 c 1 - (range el : A2 M# 1 nr range c 1 + (nc (range el : A3 A1 A2 augment : 31 line cases : N# 41 line :

Alternate:PROGRAM - NDTMA M# m T_Minor nc M# cols : nr M# rows : N# M# 1 nr range 2 nc range el m 1 ≡ M# 1 nr range 1 nc 1 - (range el m nc ≡ M# m 0 ≡ (m nc > (| A1 M# 1 nr range 1 m 1 - (range el : A2 M# 1 nr range m 1 + (nc (range el : A3 A1 A2 augment : 31 line cases : N# 41 line :

ALTERNATE PROGRAM 2 : Del 'col & row' M# col row Del_Col_Row M# col Del_Col transpose row Del_Col transpose :

Original by Jean

Define a LARGE Matrix to find execution time

M 300100 Random : 0.65 0.45 0.54 0.78 0.67 0.19 0.07 0.67 0.29 0.39 0.37 0.27 0.42 0.84 0.86 0.4 0.27 0.48 0.49 0.4 0.5 0.62 0.72 0.66 0.68 0.47 0.78 0.28 47 mat

M rows 300

M cols 100

M length 30000

t1 0 time :

Dele 'col' M 3 Del_Col 0.65 0.45 0.78 0.67 0.19 0.07 0.46 0.77 0.67 0.29 0.37 0.27 0.42 0.84 0.25 0.67 0.86 0.4 0.48 0.49 0.4 0.5 0.23 0.69 0.62 0.72 0.68 0.47 0.78 0.28 0.05 0.99 48 mat

0 time t1 - s 0.5

Delete 'row' M transpose 3 Del_Col transpose 0.65 0.45 0.54 0.78 0.67 0.19 0.07 0.46 0.67 0.29 0.39 0.37 0.27 0.42 0.84 0.25 0.62 0.72 0.66 0.68 0.47 0.78 0.28 0.05 0.02 0.91 0.09 0.45 0.55 0.58 0.42 0.76 48 mat

t1 0 time :

0 time t1 - s 0

t1 0 time :

Delete 'col' & 'row M 32 Del_Col_Row 0.65 0.45 0.78 0.67 0.19 0.07 0.46 0.86 0.4 0.48 0.49 0.4 0.5 0.23 0.62 0.72 0.68 0.47 0.78 0.28 0.05 0.02 0.91 0.45 0.55 0.58 0.42 0.76 0.44 0.05 0.94 0.82 0.16 0.11 0.45 0.96 0.47 0.19 0.93 0.67 0.76 0.52 67 mat

FAST

0 time t1 - s 3.9

Program 2: To delete multiple & non-adjacent columns M# nm Del_Multi_Col k 0 : nr nm rows : j 1 nr range : NN j el M# nm j el k - Del_Col j 1 ≡ k k 1 + : NN j 1 - el nm j el k - Del_Col 21 line cases : NN NN rows el 51 line :

M1 05204580125520458012518020458012518024545801251802453208012518024532040533104090160250104090160250360409016025036049086 mat :

Define a smaller matrix for easy testing

M1 12331 mat Del_Multi_Col 4580125801251801251802451802453202453204059016025016025036025036049083 mat

M1 1234551 mat Del_Multi_Col 12518024532040525036049081 mat

M1 13531 mat Del_Multi_Col 545125208018045125245801803201252454051090250401603609025049083 mat

M1 1621 mat Del_Multi_Col 520458020458012545801251808012518024512518024532010409016040901602509016025036084 mat

Apply Program 2: To the large matrix

t1 0 time :

M2 M 13531 mat Del_Multi_Col : 0.45 0.78 0.19 0.07 0.46 0.77 0.16 0.29 0.37 0.42 0.84 0.25 0.67 0.53 0.4 0.48 0.4 0.5 0.23 0.69 0.42 0.72 0.68 0.78 0.28 0.05 0.99 0.59 0.91 0.45 0.58 0.42 0.76 0.36 0.6 0.05 0.94 0.16 0.11 0.45 0.02 0.57 0.47 0.19 0.67 0.76 0.52 0.32 0.99 0.82 0.14 0.5 0.99 0.75 0.23 0.14 0.29 0.44 0.87 0.23 0.77 0.59 0.32 0.15 0.03 0.32 0.94 0.84 0.98 0 0.01 0.43 0.61 0.39 0.14 0.67 0.49 117 mat

M2 rows 300

M2 cols 97

M2 length 29100

Very FAST

0 time t1 - 1.4 s *